(deftemplate lista (slot denumire))

(foreach ?produs(create$ MasinaDeSpalat UscatorPar Frigider)
    (assert (lista (denumire ?produs)))
)

(defrule rezolvare
    (lista (denumire ?p1))
    
    =>
    
    (printout t ?p1 crlf)	
)

	/*(printout t "Buna ziua Timisoara")*/

(facts)
(run)